Top 10k strings from Stock Market (19xx)(-).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /
Back to the directory listing
12 t$=c$(co):
8 row,col;"
4 c$(co)=t$:
3 nd=nd*(n1+
3 e$(p1+n2):
3 #ch;" ";x$;:
3 ".005",n0:
2 x$=x$+":"+
2 val+n5,n2;
2 u(m$,n2)/n16:
2 u$(p,t-n1)=
2 t=(co-n10)*n2:
2 p1-n1)+e$(p1+
2 p(p,co)=p(p,co)+
2 p(p,co)=n0
2 n23,n1;q$:
2 n22,n10;"Hold SPACE to stop":
2 n(ti,hff):
2 n(cp*n16,hff):
2 k$="File name:":
2 k$=" Press SPACE to continue":
2 j(dw,n7)+n1:
2 cy;"Hello ";p$(p);
2 co=fco-n1:
2 c$(co,pdvp)=
2 c$(co,pdvp)):
2 b(pev)+t):
2 b(p,n1)=ti:
2 b$(pev,ev):
2 "-.3")+(t>
2 "-.1")+(t>
1 z(n8)=z(n8)+loy+ly:
1 x(c$(n1)):
1 x$=x$+"`"+
1 x$=c$(fou,
1 x$="newgame"
1 x$="big ":
1 x$=" best ":
1 x$=" "+x$:
1 x$+c;k$;"*":
1 x$+c;"* ";:
1 x$(tf)="`"
1 x$(n1)="b"
1 x$(n1)="B"
1 x$(n1)="*"
1 we=(dw<n3):
1 v(p,t1,t2)
1 u(u$(p),(co-n10)*n2-n1)/n16:
1 u(t$,p)/n16:
1 u(m$,n6)):
1 u(m$,n4)):
1 u(m$,i+n1):
1 u(h$,(i+n2)):
1 u$(u$(p),(co-n10)*n2-n1,cs*n16)
1 u$(p,cs*n2-n1)/n16:
1 u$(p,cs*n2)*n16+
1 u$(a$,p,(v<n0)*65536
1 u$(" ",n1,ti)+
1 u$(" ",n1,t6)+
1 u$(" ",n1,t5)+m$(n4):
1 u$(" ",n1,t2):
1 u$(" ",n1,rd+n7*
1 u$(" ",n1,lt)+
1 ti=rd+n4+n4*(dw>n5)+
1 ti=rd+n13:
1 ti=rd+n1+(
1 ti=rd+b(p,n2):
1 ti=a(ac,j):
1 tf;"Elapsed time is ";
1 tf,tf;"Play suspended ":
1 t=w1*n8/cp:
1 t=t-m(t1):
1 t=t-m(mo):
1 t=t+n11+n7*
1 t=t+m(t1):
1 t=t+m(mo):
1 t=n10^-n16
1 t=b(p,n8):
1 t=a(l-n1,n2)+n1:
1 t=(t1+t2)/d+b(p,n3):
1 t=(p(i,co)>n0)*
1 t4)+"dividend of "+x$+("p"
1 t3=n1);("ies"
1 t3=csh*n10:
1 t2=t2-loy-ly
1 t2=t2+p(p,i)*
1 t1=t1+p(p,i)*
1 t1=t-b*t2:
1 t1=buy*-n2+n1:
1 t1*n3+n21):
1 t,(" better"
1 t$(t$,p,v):
1 t$(pgg)/t2)):
1 t$(pcvr)/n10:
1 t$(pcvr)*(n1+
1 t$(n18)=" ")
1 t$(" ",n1,w1+w2)+
1 t$(" ",n1,w1)+
1 t$(" ",n1,t):
1 sh=p(p,co):
1 s+r+p+wP_
1 s(rd)/n7)+n1:
1 row=row-tf:
1 row=row+n1:
1 row,tf;t$(
1 row,n1;t$(
1 r2,n41;x$(t);z$(
1 r,n3;"How many players?"
1 r,c;x$;"*"
1 r,c;b(p,n2);:
1 r,c-n2;"BEST "
1 r+i,c;c$(i,
1 r+co1,c;"STOCKBROKER
1 r(n1+a(t,n3)+
1 r(a(t,n1)):
1 r(a(n25,n2)+n1):
1 r(a(ac,n3)):
1 r((dvw-n1+
1 r$(row-n5):
1 q$=" then press play":
1 q$=" or press ENTER key.":
1 q$=" a key":
1 q$=" - try again later
1 q$=" or 8 to COPY":
1 q$=" or press ENTER to re-select":
1 p=p+i*(y$=p$(i)
1 p6=p6+n42:
1 p6-p7+n1)+m$(p7+n1
1 p2=fou-n1:
1 p2+le-n1):
1 p1=sh*cp/d:
1 p1=fou+n1:
1 p1-n1)+x$+e$(p1
1 p1-n1)+e$(p2
1 p1)+x$+m$(p1+n1
1 p(p,i)=n0:
1 p(p,co)<n0
1 p$(p)="aleph0
1 o$="STOCKBROKER Details
1 o$="PLAYER TYPE Dabbler Speculator Investor Fund Manager":
1 o$=" UTILITIES Play Now Add Player Kill Player Save Game Load a Game Change Rate Continue End Game ":
1 o$=" MAIN MENU Portfolio Company ListStockbroker Details
1 ns=-t1*ns:
1 nopl=nopl-n1:
1 nopl=nopl+n1:
1 n8;k$;"*";:
1 n8,n4;d+er
1 n8,c;"Group Index:";cp;
1 n8,c1;"Industry : ";c$(is,
1 n8+l,n1;c$(k,
1 n7,c1;"Value : `";
1 n6,c1;"Held
1 n6)=a$(t1*n3+n19
1 n5,n4;"Account day - Shares required"
1 n5,n2;"Share :":
1 n5,n2;"Richard I. Pemoff & Co., Stockbrokers"'':
1 n5,n1;"Companies";
1 n5,c;c$(i,
1 n5,c1;"Share : ";c$(co,
1 n5)+m$(n8):
1 n4,tf;"Share
1 n4,n8;"This week's news";
1 n4,n1;"Share
1 n4,n0;" Company
1 n3)=a$(dw*n3-n2
1 n23,n8;"`aa.bb or bbb:cc";
1 n23,n1;" 2 Sell 4 Last 6 Copy
1 n23,n0;b$(
1 n23,ff;b$(
1 n22,n4;"Enter limit price or b for BEST";
1 n22,n4;"Enter amount in pounds or shares";:
1 n22,n1;"Company to find:":
1 n22,n1;" 1 Buy 3 Next 5 Re-select
1 n20,n0;b$(
1 n2,n13+n7*j;y$:
1 n2+n2*pm):
1 n19,n2;b$(
1 n19,n2;"Amount :";
1 n18,n20;b(p,n5);
1 n18)="ampm"(n1+n2*pm
1 n18);" ";x$;
1 n18);" ";:
1 n18);" ";-p(p,j):
1 n16,c2;"(Ex.div)"
1 n16,c1;"P/E
1 n15,c1;"Cover : ";cvr;
1 n15)+(t$(n16
1 n14,c;"Year Low :";yl:
1 n14,c2;"Div. Net : ";x$;
1 n13,n7;"loan facilities are not available."
1 n12,c;"Year High :";yh;
1 n12,c2;"Change : ";x$;
1 n12,c1;"Year Low : ";x$;
1 n11,n4;"Your bank manager doesn't like you -";
1 n11,n4;"You can not meet your commitments"
1 n11,c2;"Last Pr. : ";x$:
1 n11,c1;"Price : ";x$:
1 n10,n5;g$:
1 n10,c;"Last Index :";op;
1 n10,c1;"Year High: ";x$:
1 n10)=a$(mo*n3+n19
1 n1)''" Portfolio:";
1 n0)+(" worse"
1 n(n16*p1,n15):
1 n(n16*p1,n15)+
1 n(gb,hff)+m$
1 n$(p1)-n1):
1 n$()+(": interim"
1 n$()+" announces "+("interim "
1 mo*n3+n21):
1 m(n2)=n28+ly:
1 m(c$(n1),n2*(t-n1))
1 m(c$(n1),n2)
1 m$=n$(p1+n1
1 m$=m$+"v. bad bad average good v. good"(p1-n6
1 m$=m$+"due on "+y$+", expected to be "
1 m$=j$(p+n8
1 m$=e$(p2+n6
1 m$=e$(p1+n6
1 m$=" "+m$
1 m$/n42+n1):
1 m$+n1)+m$+n$:
1 lt=lt/n16:
1 lim=z(tf)-z(n2)+tf:
1 lim=b(p,n5):
1 l(val)-n1)+e$(l(val)+le
1 k$="only one player playing !":
1 k$="Your broker is out of the office":
1 k$="Stop tape and press a key":
1 k$="Sell at
1 k$="Player already in game":
1 k$="Past Orders shown - Press SPACE":
1 k$="No such company-press SPACE to continue":
1 k$="Maximum three players already":
1 k$="Insert save cassette, press a key":
1 k$="Insert save cassette and press":
1 k$="Enter order number to delete":
1 k$="Buy at
1 k$=" Type share name, * to exit":
1 k$=" Select one of the four initial personae":
1 k$=" Press Y to end the game":
1 k$=" Not unique - select required share ":
1 k$=" All done. Press SPACE":
1 k$=" Are you sure (Y)?":
1 j+n6,n2;j;
1 j(yr-n2,n8):
1 j(pnr,noco)+n1:
1 j$(p+n7)+n1+rd):
1 j$(p+n6)):
1 j$(p)-n1)+".":
1 i=i-n1+n11*(i<n2):
1 i=i-n1+(l-n1)*(i<n2):
1 i=i+n1-n11*(i>n10):
1 i(s$,c$(i,
1 i(s$,c$(fou-n1,
1 i(k$,"Yy")
1 i(" ",m$):
1 h$(i+n4))+" results "+"are ":
1 h$(i+n1)/n32):
1 h$(i+n1),pb)
1 h$(i+n1)+pb):
1 fou=fou-n1:
1 fnd=fnd+n5:
1 flag-n23,n0:
1 ff;" 1 Page up 3 Find 5 Details 7 Up "'" 2 Page down 4 Print 6 Down 8 Copy ";:
1 ff''" You are investing in ";t3;" compan";("y"
1 f$(t2,n2):
1 f$(r,n2);" ";
1 f$(p1,n3)+"m":
1 f$(p1,n3)+"k":
1 f$(p1,n3)+"b":
1 f$(p1,n3)+" ":
1 eepl=eepl+n1:
1 e$(p2+n5):
1 e$(p2+n4)+
1 e$(p2+n2):
1 e$(p1+n5):
1 e$(p1+n4)+
1 dys=dys+loy+ly:
1 dy=dy-loy-ly:
1 dp=cp-n2*chng+
1 d(pdv)-dv)/dv):
1 d(pcp)-dv):
1 d$(pyl,cp):
1 d$(pyh,cp):
1 d$(prcp,cp):
1 d$(pid,nd):
1 d$(pdv,nd+
1 cy;"You're barred!":
1 cy;"Player name: ":
1 cy;"Player name :":
1 cy;"No such player":
1 cy;"No orders pending - Press SPACE":
1 cy;"No advice at present - Press SPACE":
1 cy;"No NEWS - Press SPACE":
1 cy;"Account day - Checking portfolios":
1 cy;" play rate :":
1 cy;" ";p$(i):
1 cs=co-n10:
1 cs=(sh*cs+ns*dp)/t
1 co=val+z(n2)-tf:
1 co=fou-n1:
1 co=co1-n1:
1 co=co-pnd*b7:
1 co=co-b7*pnd:
1 co=co-b7*buy:
1 chng=cp-op:
1 c;"Inc. :"'" Not Held :"''''" Gst. Cash:";
1 c;"Cash :";''" Total Assets :"''" Orders pending :"
1 c2;"Yield grs: ";yld;
1 c$(co,pis)
1 c$(co,pdvw)+t4*n26-n1,
1 c$(co,pdvp)/
1 c$(co,pdvp)*cp/
1 buy);" ";c$(co,
1 b(pdcp)/n16/rcp)/(n1+(
1 b(pdcp)/n16
1 b(p,n7)=t3:
1 b(p,n7)=b(p,n7)*
1 b(p,n6)=b(p,n6)+t:
1 b(p,n6),n10);
1 b(p,n5)=lim-n1:
1 b(p,n5)=b(p,n5)-n1:
1 b(p,n5)=b(p,n5)+n1:
1 b(p,n4)=csh:
1 b(p,n4)=b(p,n4)+t:
1 b(p,n4)=b(p,n3):
1 b(p,n4)<n0
1 b(p,n4),n10);
1 b(p,n3)=csh:
1 b(p,n3)=b(p,n3)-dp*ns/d:
1 b(p,n3)=b(p,n3)+t:
1 b(p,n3),n10);
1 b(p,n2)=val:
1 b(p,n2)=pr:
1 b(p,n1)=ti
1 b(p,n1)=rd
1 b(p,i)=n0:
1 b(i,n2)*(y$=p$(i)):
1 b$(pdcp,(cp-rcp)*n16)
1 ac=ac*(ac>n1)-n1:
1 ac=ac*(ac<n26)+n1:
1 a(n2,i)=a(n26,i)-loy-ly:
1 a(n1,i)=a(n25,i)-loy-ly:
1 a(l,n3)=t:
1 a(l,n2)=t:
1 a(l,n1)=t:
1 a(ac,n2)<dy
1 a(ac,n2)):
1 a(ac,n1)>dy
1 a$(p+n1)*b
1 You have yet to play a full week
1 Whitbread 'A'
1 Weeks from now - Press space
1 Unseasonal weather forecast - sugar futures react badlyH
1 Tate & Lyle
1 Shell Trans&Trad 0*0*d
1 SatSunMonTueWedThuFriJanFebMarAprMayJunJulAugSepOctNovDecJanFeb
1 Sainsbury (J)
1 Rio-Tinto-Zinc
1 Relative Performance Of Your Portfolio
1 Reckitt & Colman p!p!s
1 Queens Moat
1 Polly Peck
1 Pilkington Br. `10
1 Performance:
1 P.M. reveals excise duty increases - protests from Trade AssociationH
1 OPEC..existence threatened by Nigerian/Venezualan demands3
1 Normans Group 10p
1 New uncertainties reported vis a vis Japanese attitude to imports and surpluses9
1 New EEC regulations expected to influence sectorD
1 N.American Engineering
1 Mystery foreign buyer sparks acquisition interest in sector
1 Market analysts predict strong growth in sector in next quarter6
1 Lilley(FJC)
1 John Brown
1 Industry Groups
1 Hanson Trust
1 Distillers
1 Courtaulds
1 CommonwealthGeneral Industry
1 Chancellor increases capital investment incentives - construction industry expected to benefitL
1 Cadbury Schweppes
1 CPS Computers 20p
1 Bulmer HP Ltd 5p
1 Brit. Petroleum @!@!Y
1 Bowater Inds `1
1 Blue Circle
1 Barker & Dobson 1p
1 Babcock Intl
1 Amersham Intl
1 =a$(v)=a$(
1 =(b$l)=(b$(
1 4Prudential
1 3Imp. Chem.
1 . Metal Box
1 -24 -20 -15 -10 -5 0
1 -+----+----+
1 +Gt. Universal
1 )=n2*(x+dys)-n1:
1 (yr+(mo>n12))
1 (v/b)+a$(p+n2
1 (t2/d),n10);
1 (t1/d),n10);
1 (t/n4))-(t/d=
1 (t/d))+(t/
1 (t/b(p,n7)*d-d+
1 (sd+(dir=tf));"
1 (sd+(dir=n1));"
1 (r+k/n12),c;o$(k
1 (p(p,co)*cp)/d;
1 (p(i,co)*dv/d):
1 (ns-b*t6):
1 (n32*(t2<n10)):
1 (n10*cp/(dcp+dv))/n10:
1 (l*n8+n1):
1 (dp*n16)/n16:
1 (dp*n16),hff)+
1 (co+b7*pnd)+
1 (co+b7*buy)+
1 (b(p,n3)+(t1+t2)/d),n10)
1 (am-b*t6):
1 (U.S. Treasury announces 'controlled reduction' in interest ratesA
1 ((x+n1)/n2)-dys:
1 ((t1+t2)/d),n10);
1 ((rd-n24)/n2-
1 ((p1+p2)/n2):
1 % Unilever
1 "news item:";m$:
1 "`")+", due on "+y$+". Ex div date is "+s$:
1 "S"-buy*n17);" ";c$(co,
1 "Portfolio for ";p$(p)'"on ";w$':
1 "Oxford Instrmnt 5p`
1 "Company List on ";w$':
1 "910"+buy:
1 "9"<x$(i):
1 "4"))*n7):
1 "3Mercantile House
1 "23631"+b*
1 "23613"+b*
1 "10000"/n7/cp)/n10:
1 ".5"+(cp-cs)/cs*d):
1 ".5")*cp/n10):
1 ".4");" days";
1 "$"+t1+t1/n4-t1/d+t1/
1 than a Building
1 searching
1 or ENTER for default":
1 Triptych Publishing Ltd.
1 Price Number":
1 Price Change P/E
1 Price Amount":
1 Press a key
1 Orders Past Orders Advice Port SummaryPerformance Ind. Groups Main Menu "
1 Oil & Mining
1 Investment
1 Household
1 Hotel and Leisure
1 Held Val. Price
1 First Last Acnt "'b$(
1 ENTER to exit"
1 Done "
1 Construction
1 Allied Lyons
1 : ";p(p,co)
1 (Press SPACE)":
1 "Ladbroke
1 reports poor prospects for quarterly results?
1 loses access to potential overseas marketW
1 European Electrical
1 Your Portfolio